home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / intrfc70.zip / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-16  |  1KB  |  52 lines
  1. unit globals;
  2. {$I SWITCHES.INC}
  3. interface
  4.  
  5. uses Dos;
  6.  
  7. type
  8.   word_array_ptr = ^word_array;
  9.   word_array=array[0..32760] of word;
  10.   byte_array_ptr = ^byte_array;
  11.   byte_array=array[0..65520] of byte;
  12.   option = (do_header,do_src_files,do_src_lines,
  13.              do_name_list,do_implementation,do_entry_pts,
  14.              do_code_blocks,do_const_blocks,do_dll_blocks,
  15.              do_var_blocks,do_unit_blocks,do_browser,
  16.              do_code,do_const,do_reloc,do_vmt,do_locals);
  17. const
  18.   tpl_name : string[12] = 'TURBO.TPL';
  19. var
  20.   buffer : byte_array_ptr;
  21.   code_buf,const_buf,reloc_buf,const_reloc_buf : byte_array_ptr;
  22.   code_ofs,const_ofs,reloc_ofs,const_reloc_ofs : longint;
  23. {$IFNDEF UNIT60}
  24.   browser_buf : byte_array_ptr;
  25.   browser_ofs : longint;
  26. {$ENDIF}
  27.   tpl_size : longint;
  28.   f:file;
  29.   unit_size : word;
  30.   unitname,uses_path : string;
  31.   unit_ext : extstr;
  32.   indentation : word;
  33.  
  34. const
  35.   active_options : set of option = [do_name_list];
  36.   tab = ^I;
  37.   oneindent = '  ';
  38.  
  39. procedure indent;
  40.  
  41. implementation
  42.  
  43. procedure indent;
  44. var
  45.   count : word;
  46. begin
  47.   for count := 1 to indentation do
  48.     write(oneindent);
  49. end;
  50.  
  51. end.
  52.